home *** CD-ROM | disk | FTP | other *** search
/ The Mac 13 / the-mac-13.iso / On The Rom / 100 Best Mac CD-ROMs Selection / UNZIP-DEMO / ZIPFILES / shared.Dir / 00882.ls < prev    next >
Encoding:
Text File  |  1995-06-15  |  245 b   |  12 lines
  1. on nbut
  2.   set wb to the clickOn
  3.   set wbc to the castNum of sprite wb
  4.   set the castNum of sprite wb to wbc - 10
  5.   updateStage()
  6.   startTimer()
  7.   repeat while the timer < 15
  8.   end repeat
  9.   set the castNum of sprite wb to wbc
  10.   updateStage()
  11. end
  12.